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cccccccc 000000 MM MM MM MM 000000 NN NN 
cccccccce 0 MM MM MM M 0000 NN NN 

cc 09 00 MMMM MMMM MMMM MMMM «600 00 NN NN 

cc 00 00 MMMM MMMM MMMM 00 00 IN 

cc 00 00 MM MM MM MM OMM «(OO 00 NNNN NN 

cc 00 00 MM MM MM MM MM MM «(OO 00 NNNN N 

cc 00 00 MM MM MM MM 00 00 NN NN NN 

cc 00 00 MM MM «MM MM 00 00 NN NN NN 

cc 00 00 MM MM MM MM 00 QO NN 

cc 00 00 MM MM MM MM 00 OO NN NNNN 

cc 00 00 MM MM MM MM 00 00 NN NN eee 
cc 00 00 MM MM MM MM 00 00 NN NN coos 
cccccccc 000000 MM MM «MM MM 000000 NN NN eee 
cccccccc 000000 MM MM MM MM 000000 NN NN eeee 
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MODULE COMMON ( 


oO 
fofelo) 
COOooCooocoe 


Sees BBEEP 
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BEGIN 


. 
Lee RRRAAAAAAA AREA AAARAAAAAA EERE EEE AEA AAAAAAAEREAEAERERAEEREREEE 
'@ 


felelelelolololelq) 


s 1 1 | 

Ss 0 3 | 

, ¥ 000 | | 

ob BY | 

:; 10 6 10 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ‘ 

os ae 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. ” 

3 \§ 8 \¢ ! ™ ALL RIGHTS RESERVED. . 

; 9% 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

: 16 poi8 1 !'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

s- tv 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

H 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 1 dh : re TRANSFERRED. : 

; 1 itd 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ” 

b4 ¢ 00 é 1 '® AN HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 52 O0S7 : i: CORPORATION. . 

; 25 0025 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 $$ Ooee : re SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

: 8 5 6 1 is ‘ 

$ $0 0099 LS ee eRe RRR EAA RARER RARER AAA AREA AAA AAR 

3 0 0030 1 

; 3 itt ' i++ 

; 33 0038 FACILITY: F11ACP Structure Level 2 

; 35 0035 i ABSTRACT: 

; 37 0037 1! This module is the common impure area of FCP, including the 

g 3 sits: : routine that initializes it for each request. 

: 40 9040 | ENVIRONMENT : 

: 42 0048 1! STARLET operating system, including privileged system services 

s 6 00435 1! and internal exec routines. 

3 44 044 1! 

; 645 045 1 !=- 

8 BET 

: 48 0048 AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 23:42 

: 30 0050 i MODIFIED BY: 

: 2§ 0082 1 i v03-017 ACG0415 Andrew C. Goldstein, 9-Apr-1984 11:35 

; a7 0084 ; Add patch area to code sections | 

: 3g 55 1 | v03-016 ACG0408 Andrew C. Goldstein, 20-Mar-1984 16:08 

: 2$ Bbes ;! Redesign global storage generation. This module now just 

; 3 a 2 invokes a macro to generate the global storage definitions. | 

| 
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The actual definitions of storage cells are in FCPDEF. 
cdS001 3 Christian D. Sperber 13-Feb-1984 


poo B old RDBL oe K celle, Add ACB 

Add BFR_LIST, BFR_CREDITS, and BFRS _USED vectors. 
Replace NO_LCKCHK with CAtne Lock K. 

CdDS0012 Christian D. Saether 27-Dec-1983 


Rearrange layout of variables to simplify construction 
of equivalent BIND statements. 


CdS$0011 Christian D. Saether 12-Dec-1983 
Move OWN and GLOBAL declarations from other modules 
to this one to reduce number of inage sections. 
Move code from this module to INIFCP. 


CDS0010 Christian D. Saether 10-0¢t-1983 
Add cell to hold lockid of lock volume Lock. 

Add flag to determine whether blocking checks are made. 
Redefine NO_LCKCHK as a byte. 


CDS0009 Christian D. Saether 3-0c t-1983 
Add CURR_LCKINDX. 
CDS0008 Christian D. Saether 14-Sep-1983 


Rework oe ye hy of serialization locks and 
associated dat 
Move MATCHING ACE, FILE_SPEC_LEN, and FULL_FILE_SPEC 
again to get Better locality between primary and 
secondary context areas. 
Add volume context flag save word. 


poseus? Christian D. Saether 27-Au ee ues. 
Remove PREV_C HANNEL D18k UCB, DISK "uce2" PREV_UCB. 
Add 10. CCB."ORIG. IOCHN 

Move MATCHING ACE, FILES SPEC_LEN, and FULL_FILE SPEC 
out of initialised context area to avoid iMictat izing 
these large areas on every request. The ay oF 

explicitly initialized in the routines that use them. 


CDS0006 Christian D. Saether 27-Jul-1983 
Remove obselete jbc cells. 


LMPO121 Mark Pilan 17-Jun-1983 9:14 
Up the storage p: the full “File specification. 


LMP0110 L. Mark Pilant 3-May-1983 12:10 
agg storage for the access mask, privs used, “and matching 


CdDS0005 Christian D. Saether 3-May-1983 
Add lock status block for fid serialization ate 

Add lock status block for directory file serial lock. 
Add lock status block for volume serialization. 


CDS0004 Christian D. Saether 22-Apr-1983 
Lock status block needs to be in context save area. 
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v03-003 CDS0003 Christian D. Saether 6-Apr-1983 
Define lock status block for access locks. 
v03-002 cDS0002 C Saether 26-0c¢ t-1982 
Remove AQB_PTR. Only used in mount and dismount. 
v03-001 CDS0001 C Saeth 30-Jul-1982 


er 
Add new cells for XQP support. 


v02-010 rhe Pes Andrew C. Goldstein, 23-Dec-1981 20:36 
Add job controller mailbox channel 


v02-009 ACG0208 Andrew C. Goldstein, 30-Oct-1981 19:28 
Add segmented directory record support 

v02-008 ACG38100 Andrew C. Goldstein, 33-Jun-1981 11:57 
Fix granting of SYSPRV to volume owner 

v02-007 ACG0167 Andrew C. Goldstein, 16-Apr-1980 19:25 
Previous revision history moved to F11B.REV 


LIBRARY ‘SYS$LIBRARY: 


LIB.L32'; 
REQUIRE ‘SRCS$:FCPDEF .B3 


N 14 | 
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ACP global impure data area 
ie 
GLOBAL _COMMON; 


UNDE CLARE 
CONTEXT _SIZE; 


} 

| 

| 

| 

GLOBAL Li reset | 
CONTEXT _SIZE CONTEXT_END - cowre*t START, ! byte count of context area 
IMPURE SIZE IMPURE_END = IMPURE START : byte count of impure area 

. | 


STORAGE.SIZE = STORAGE_END - STORAGE “START, 
STORAGE-OFFSET = - SP ORACE “START; 


Check the Length of the context save area. 
SASSUME (CONTEXT_SAVE_END, EQL, CONTEXT_SAVE + CONTEXT_SIZE); 


1 
Allocate space for paged and non-paged patch areas. 


! total impure area size 
! offset of base register 


PSECT OWN = rte (NOWRITE, EXECUTE, ALIGN (9)); 
OWN PAGED_END : T 
PSECT § = SCODESS (NOWRITE, EXECUTE, ALIGN (2)); 
GLOBAL PAGED_PATCH : VECTOR C128) 
INITIAL (PAGED_END = PAGED_PATCH = 8, PAGED_PATCH + 8); 
PSECT OWN = SLOCKEDC9S (NOWRITE, EXECUTE, ALIGN (9)); 
OWN NONPAGED_END : VECTOR (0); 
PSECT GLOBAL = $LOCKEDC8$. (NOWRITE, EXECUTE, ALIGN (2)); 


CTOR [64] 


GLOBAL NONPAGED_PATCH : VE 
INITIAL (NONPAGED_END - NONPAGED_PATCH = 8, NONPAGED_PATCH + 8); 
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END 

ELUDOM 
TITLE COMMON 

IDENT \V04-000\ 
-PSECT $LOCKEDC8$,NOWRT ,2 | 
00000000* 00000 NONPAGED PATCH: : | 
TLONG | _<<NONPAGED_END-NONPAGED_PATCH>-8> : | 
00000000° 00004 “ADDRESS NONPAGED_PATCH+8 ; 

00008 “BLKB 248 

PSECT SLOCKEDC9$,NOWRT,9 


00000 NONPAGED_END: 
“BLKB (OO 


-PSECT $CODE8$,NOWRT,2 


Be Be Oe Oe Oe BH Se Oe BH e Ge BH Se Se Se BH Se Se SH Be Se FH Se Se SH Se Se Se Se SH Se Se Se Se SH Se Se Se Se Se SH Se Se Fe Se Se Se Fe Se Se sess TH Sees Seas 


16-50 ep-1986 VAX=11 BLiss-32_V4.0-742 5 
=F ee 18a ts Ne MRAASTERSCE TIS. GReICOMMON.B325109" (23 
00000000* 00000 PAGED_PATCH: : 
~LON <PAGED_END=PAGED_ PATCH>-8> : 
00000000" 99094 “ADDRESS PAGED. PATCH#8 : 
8 “BLKB 504 


-PSECT S$CODE9$,NOWRT,9 


00000 PAGED_END: 
-BLKB 0 


STORAGE_START== -275 
L_DATA_START== -275 
XOP_STACK== -275 
XQP" QUEUE == -192 
xOPe DI SPATCHER== -184 
ODE_SIZE== -180 
CODETADDRESS== -176 
ATA_SIZE== -172 
TA_ADDRESS== -168 
PREV_FP== -164 
V-STKLIM== -160 
XQP_STKLIM== -152 
XQP~ SAVFP== -144 
_UCB== -140 
10~ CHANNEL== -136 
BLOCK_LOCKID== -132 
IMPURE_START== -128 
USER_STATUS== -128 
10_STATUS== -120 
10-PACKET== -112 
CURRENT_UCB== -108 
CURRENT_VCB== -104 
CURRENT_RVT== -100 
CURRENT_RVN== -96 
SAVE_VC_FLAGS== -92 
STSFCGS== -90 
BLOCK_CHECK== -89 
EW_FID== -88 
NEW FID_RVN== -84 
HEADER_CBN== -80 
BI TMAP_VBN== -76 
BI TMAP_RVN== -72 
BITMAP” BUF FER== -68 
SAVE_STATUS== -64 
PRIVS_USED== -60 
ACB_ABDR== -56 
BFR_LIST== -52 
BFR’ CREDITS== -20 
BFRS_USED== -12 
CACHE _HDR== -4 
CONTERT_START== 0 
CLEANUP FLAGS== 0 
FILE_HEADER== 4 
PRIMARY _F CB== . 
CURRENT_WINDOW== 2 
CURRENT -F IB== 16 
CURR_LCRINDX== 20 
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PRIM_LCKINDX== 
LOC N== 


AUDIT” COUNT== 
IMPURE _END== 
MATCHING ACE== 
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piace 


SCODE9S 


SCODESS 
SLOCKEDC9S 
SLOCKEDC8S 
- ABS. 


File 


~-$255$DUA28: CSYSLIBILIB.L32;1 


un Time 


Used: 110 pages 


cet Bey Complete 


Bytes 


Dd 15 
16-Sep-1984 00:05:05 VAX=-11 Bliss-32 V4.0-742 
122808-1 38 3 398:93 DISKSVMSMASTER:CF11 
IMPUR Ee Tees 7 
STORAGE_S 5156 
STORAGE— ~bFFSEt== 275 
PSECT SUMMARY 
Attributes 
NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(9) 
512 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, pong od PUD ott ¢ 
NOVEC,NOWRT, RD, EXE.NOSHR. LCL, REL. CON,NOPIC,ALIGN(9) 
256 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, oakland | Beth att 
QO NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
Library Statistics 
eeocee - Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
18619 18 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:COMMON/OBJ=O0BJ$: COMMON MSRC$: COMMON/UPDATE=(ENHS: COMMON) 


0 code + 768 data bytes 
0:13.6 


odie Time: 00: 9.7 
Lines/CPU Min: 156 
ROnenee/ Pete: 57920 
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